home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib06.dsk / CIRCLES FROM LINES.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  37 lines
  1. 1  REM  ******************************
  2. 2  REM  *     CIRCLES FROM LINES     *
  3. 3  REM  *      BY T.L. GABRIELE      *
  4. 4  REM  *     COPYRIGHT (C) 1981     *
  5. 5  REM  *     BY MICRO-SPARC INC     *
  6. 6  REM  *     LINCOLN,  MA 01773     *
  7. 7  REM  ******************************
  8. 10  REM  CIRCLES FROM LINES
  9. 20  REM  ALL POSSIBLE LINE
  10. 30  REM  SEGMENTS BETWEEN
  11. 40  REM  NODE PAIRS
  12. 50  REM 
  13. 60  DIM XP(25),YP(25)
  14. 70  TEXT : HOME : VTAB 3
  15. 80  INVERSE : PRINT : PRINT "CIRCLES FROM LINES": PRINT : NORMAL : PRINT 
  16. 90  PRINT "HOW MANY NODES WOULD YOU LIKE?"
  17. 100  INPUT "(3 TO 25) (0 WILL EXIT)";N%
  18. 110  IF N% = 0  THEN  END 
  19. 120  IF N% <3  OR N% >25  THEN 90
  20. 130  VTAB 10
  21. 140 NL% = N% *(N% -1)/2
  22. 150  PRINT "WHEN YOU PRESS THE NEXT KEY I'LL DRAW": PRINT NL%;" LINES."
  23. 160  GET Z$
  24. 170  HGR2 : HCOLOR= 3
  25. 180 PI = 3.141592654
  26. 190  FOR I = 1 TO N%
  27. 200 TH = 2 *PI *I/N%
  28. 210 XP(I) = 139 *(1 + SIN(TH))
  29. 220 YP(I) = 91 *(1 - COS(TH))
  30. 230  NEXT I
  31. 240  FOR I = 1 TO N% -1
  32. 250  FOR J = I +1 TO N%
  33. 260  HPLOT XP(I),YP(I) TO XP(J),YP(J)
  34. 270  NEXT J
  35. 280  NEXT I
  36. 290  GET Z$
  37. 300  GOTO 70